home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / tonyray1.arc / CC2.PRG < prev    next >
Encoding:
Text File  |  1985-09-01  |  1.7 KB  |  97 lines
  1. CLEA
  2. mchoice=' '
  3. mname=space(06)
  4. mclose=.t.
  5. mdele=0
  6. DO WHIL MCLOSE=.T.
  7. mchoice=' '
  8. @05,05 say 'enter client number or'
  9. @06,05 say '         (cr) to exit ' get mname pict '!!!!!!'
  10. READ
  11. mname=trim(mname)
  12. IF len(MNAME)=0 .OR. MNAME=SPACE(06)
  13. mclose=.f.
  14. exit
  15. ENDI
  16. FIND &mname
  17. DO CASE
  18. CASE EOF()
  19. @15,23 SAY CHR(7)+'no client with that number - try again'
  20. xx=1
  21. DO WHIL xx<35
  22. xx=xx+1
  23. ENDD
  24. mname=space(20)
  25. @15,23
  26. LOOP
  27. OTHE
  28. @10,05 say '    client  - '+clientname
  29. @11,05 say '  reference - '+reference
  30. @12,05 say 'file number - '+file_nmbr
  31. @15,01 say ' is this the case to close? (Y) or (N)' get mchoice pict '!'ì
  32.  
  33. READ
  34. IF MCHOICE<>'Y'
  35. SET color to w*/r
  36. @ 21,15 SAY CHR(7)+'case NOT closed because you did'
  37. @ 22,15 say 'not select (Y) - hit any key'
  38. SET color to 6/1,7/4,6
  39. SET cons off
  40. WAIT
  41. SET cons on
  42. mname=space(06)
  43. @07,00 clear
  44. ELSE
  45. MFILE_NMBR=FILE_NMBR
  46. SELE SERVICE
  47. FIND '&MFILE_NMBR'
  48. DO WHIL FILE_NMBR='&MFILE_NMBR' .AND. .NOT. EOF()
  49. DELE
  50. SKIP
  51. ENDD
  52. SELE CURRENT
  53. SET INDE TO CURRNMBR,CURRNAME
  54. FIND &MNAME
  55. DELE
  56. MDELE=mdele+1
  57. SET color to w*/r
  58. @21,15 say str(mdele)+' case(s) closed'
  59. xx=1
  60. DO WHIL XX<35
  61. xx=xx+1
  62. ENDD
  63. SET color to 6/1,7/4,6
  64. mname=space(6)
  65. @07,00 clear
  66. ENDI
  67. ENDC
  68. ENDD
  69. IF mdele>=1
  70. CLEA
  71. SET COLOR TO W*/R
  72. @01,00 SAY 'closing cases - please standby'
  73. ? 'number of cases we are closing is'+str(mdele)
  74. SET color to 6/1,7/4,6
  75. SET CONS OFF
  76. COPY TO TEMP FOR DELE()
  77. SELE CLOSED
  78. APPE FROM TEMP
  79. sele current
  80. PACK
  81. DELE FILE TEMP.DBF
  82. SELE SERVICE
  83. PACK
  84. SELE CURRENT
  85. ELSE
  86. SET CONS ON
  87. SET color to w*/r
  88. @01,01 say 'no cases closed - hit any key'
  89. SET color to 6/1,7/4,6
  90. SET cons off
  91. WAIT
  92. SET CONS ON
  93. ENDI
  94. SET cons on
  95. curr='014'
  96. RETU
  97.